home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 3 / Cream of the Crop 3.iso / comm / cu_210.zip / _MAIN.EXE / SCRIPT.CSF < prev    next >
Text File  |  1993-10-15  |  4KB  |  75 lines

  1. (******************************************************************************)
  2. (*                       Sample Communiqué Script File                        *)
  3. (*                        ───────────────────────────                         *)
  4. (*                               version 2.xx                                 *)
  5. (*                                                                            *)
  6. (*   IMPORTANT NOTICE:  This is only a sample script file for the shareware   *)
  7. (*   version of Communiqué.  The Communiqué scripting language has not been   *)
  8. (*   finalised yet and may be subject to changes without notice. The script   *)
  9. (*   language is an interpretive language,  meaning that it compiles on the   *)
  10. (*   fly,  saving the hassle of compiling the language beforehand.  Because   *)
  11. (*   of this, the syntax of the language must be give careful consideration   *)
  12. (*   before development and with development.  The syntax must be such that   *)
  13. (*   it is easy for the user and easy for the builtin interpretive compiler   *)
  14. (*   to  interpret and check for errors.  The Communiqué script language is   *)
  15. (*   a fast script language that compares to other packages compilers. At a   *)
  16. (*   later stage more details of the  Communiqué scripting language will be   *)
  17. (*   released and documented.  The language is a culmination of the Pascal,   *)
  18. (*   C, and Basic programming languages. Any suggestions are quite welcome.   *)
  19. (*                                                                            *)
  20. (*   Use 'CONTROL C' to break out of a running script.                        *)
  21. (*                                                                            *)
  22. (******************************************************************************)
  23.  
  24. begin
  25.   Delay(500)                       (*** Delay for 500 1/1000ths of a second ***)
  26.  
  27.   %IEMSI      = On                                (*** Turn IEMSI ON or OFF ***)
  28.   %AVATAR     = On                               (*** Turn AVATAR ON or OFF ***)
  29.   %AUTOZMODEM = On                (*** Turn AUTO-ZMODEM downloads ON or OFF ***)
  30.   %AUTOHYDRA  = On                 (*** Turn AUTO-HYDRA downloads ON or OFF ***)
  31.  
  32.   BaudRate(2400)                 (*** Set DTE baudrate, all speeds accepted ***)
  33.  
  34.   TextColor(10)                    (*** Set foreground color to light green ***)
  35.   BackGround(0)                          (*** Set background color of black ***)
  36.   Cls                                                 (*** Clear the screen ***)
  37.  
  38.   Alarm(1)            (*** Sets of an alarm, the number is the tune to play ***)
  39.   Delay(500)                       (*** Delay for 500 1/1000ths of a second ***)
  40.  
  41.   ComWriteLn('AT&V')           (*** Sends AT&V to the com port with CR & LF ***)
  42.   Pause(500)              (*** Pauses for 500 1/100ths of a second printing ***)
  43.                           (*** any text received from the modem ***)
  44.  
  45.   MakeWindow(10,5,70,20)               (*** Draw a window {XHi,YHi,XLo,YLo} ***)
  46.   WriteLn('')                            (*** Write a CR & LF to the screen ***)
  47.   WriteLn('Dialling...')  (*** Write Dialling... to the screen with CR & LF ***)
  48.   AutoDial(5)                          (*** Dial dialling directory entry 9 ***)
  49.   AutoDialQueue(2,3,6,7,8,9,10)    (*** Dial listed entries in a dial queue ***)
  50.  
  51.   WaitFor('NAME','BRUCE',30)
  52.       (*** Wait for first string, then send second string to modem, the 3rd ***)
  53.       (*** parameter is the timeout value, the amount of time to wait ***)
  54.  
  55.   WriteLn('')
  56.   WriteLn('Finished...')
  57.   Delay(600)
  58.   KillWindow                                             (*** Remove window ***)
  59.  
  60.   Upload(7,'C:\Term\Docs\Term.DOC')
  61.     (*** Upload specified file. 1 specifies ASCII, 8 Hydra,  this is in the ***)
  62.     (*** same order as the the protocol selection window ***)
  63.  
  64. (*  Download(7,'') *)
  65.     (*** Same as above except to receive a file, for ASCII and XMODEM the ***)
  66.     (*** filename must be given, otherwise it is not needed, the path can ***)
  67.     (*** be specified. Not need with Zmodem or Hydra AutoDownload ***)
  68.  
  69.   ShellEms('Test.bat')           (*** Shell to EMS or Disk and run Test.BAT ***)
  70.  
  71. (*  HaltScript *)     (*** Exits the script and goes back into command mode ***)
  72. (*  Halt *)                                            (*** Exit Communiqué ***)
  73. end
  74.  
  75.